home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / pctchnqs / 1992 / number1 / dumpmono.src < prev    next >
Text File  |  1992-02-12  |  260b  |  13 lines
  1. procedure B000seg; Far; External 'KERNEL' Index 181;
  2.  
  3. procedure DumpStr2Mono(S:String);
  4. type
  5.   screenar=array[1..256] of word;
  6. var
  7.   mp:^screenar;
  8.   i:byte;
  9. begin
  10.   mp:=ptr(ofs(B000seg),0);
  11.   for i:=1 to length(S) do mp^[i]:=ord(S[i])+$7000;
  12. end;
  13.